home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / home / maxicras / subs.bas < prev   
BASIC Source File  |  1986-03-23  |  2KB  |  37 lines
  1. 36000 CLS:LOCATE 12,26:PRINT "Output to printer (Y/N*) ? ";:FL=1:GOSUB 34000:IF IN$<>"Y" THEN VIDEO=1:CLS:RETURN ELSE VIDEO=0:RETURN
  2. 40000 IF VIDEO=1 THEN RETURN ELSE LOCATE 16,26:PRINT "Depress ";:COLOR VAL(F$(14)):PRINT "'ENTER'";:COLOR VAL(F$(15)),VAL(F$(5)):PRINT " when paper is"
  3. 40002 LOCATE 17,31:PRINT "properly positioned"
  4. 40004 LOCATE 18,41
  5. 40007 GOSUB 41080
  6. 40008 IF VIDEO=0 THEN CLS ELSE RETURN
  7. 40009 IF VIDEO=0 THEN LOCATE 12,30:PRINT "P  R  I  N  T  I  N  G":RETURN ELSE RETURN
  8. 40010 CLS: LOCATE 12,33: PRINT"Printer not ready !"
  9. 40011 IF VIDEO=0 THEN LOCATE 14,29 ELSE LOCATE 24,29
  10. 40012 PRINT"Depress ";:COLOR VAL(F$(14)):PRINT"'ENTER'";:COLOR VAL(F$(15)),VAL(F$(5)): PRINT" when ready ";
  11. 40013 GOSUB 40007:EC=0:IF (VIDEO=1 AND NOMORE=0) THEN CLS:RETURN ELSE IF VIDEO=1 THEN LOCATE 24,1:PRINT STRING$(79,32);:RETURN ELSE RESUME
  12. 40020 ML=(LEN(M$(M))+1)/2
  13. 40025 RETURN
  14. 40040 TM=M-FY+1
  15. 40042 IF TM<1 THEN TM=TM+12
  16. 40044 RETURN
  17. 40060 IF M<FY THEN YR$=MID$(STR$(VAL(YR$)+1), 2)
  18. 40062 RETURN
  19. 40080 IF IN=0 THEN IN=VAL(LEFT$(TIME$, 2))
  20. 40082 RETURN
  21. 41000 EC=0
  22. 41002 CF=1
  23. 41004 OPEN"I",1,FNF$(1)
  24. 41006 CLOSE#1, 4
  25. 41008 CF=0
  26. 41010 IF (EC=53 OR EC=54 OR EC=70 OR EC=71) THEN 41011 ELSE RETURN
  27. 41011 IF VIDEO=1 THEN 40011:CLS: GOTO 41050 ELSE CLS:GOTO 41050
  28. 41050 GOSUB 40020
  29. 41051 LOCATE 12,33-ML:PRINT "Insert ";M$(M);"'s Data Disk"
  30. 41052 LOCATE 13,35:PRINT "into Drive # ";DDISK$
  31. 41054 LOCATE 15,29:PRINT "Depress ";:COLOR VAL(F$(14)):PRINT "'ENTER'";:COLOR VAL(F$(15)),VAL(F$(5)):PRINT " when ready"
  32. 41056 LOCATE 17,41
  33. 41060 GOSUB 41080
  34. 41062 GOTO 41000
  35. 41080 IN$=INKEY$:IF IN$="" THEN 41080 ELSE RETURN
  36. 
  37. 34010 IF IN$="